Sports Illustrated for Kids - Awesome Athletes!/Sports Illustrated for Kids - Awesome Athletes!.iso/tr.dir/00002_StartUp script.ls

Text File | 1996-04-18 | 12.4 KB | 380 lines

global gTRHelpUp

on startMovie
  global gzTRBalloonObj, gcTRBAL_CH1, gHSState, gTRInitState, gSIUserName, gTREndGame, gTRNewGame, gzTRAllTimeHighs, gzTRPersBestScores, gTRInitialPopCount
  set gTRInitialPopCount to 0
  set gTRNewGame to 0
  if value(HSStateGet("tr", "not1stTime")) then
    set gTRHelpUp to 0
  else
    set gTRHelpUp to 1
    duplicate(cast 97, 98)
  end if
  go("BeginHead2Head")
  set the text of cast "P1LogIn" to gSIUserName
  set the text of cast "P2LogIn" to "Player2"
  InitPlayerScoreFields()
  if the soundEnabled then
    updateStage()
  end if
  if not gTRInitState then
    FirstTimeInit()
    set gTRInitState to 1
    set gzTRAllTimeHighs to GSStateGet("tr2", "ChampInfo")
    if not listp(gzTRAllTimeHighs) then
      set gzTRAllTimeHighs to [:]
    end if
    set gzTRPersBestScores to HSStateGet("tr2", "PersBest")
    if not listp(gzTRPersBestScores) then
      set gzTRPersBestScores to []
    end if
    if gTRHelpUp = 0 then
      set vP1 to HSStateGet("tr", "P1Obj")
      SetPlayerProps(1, vP1)
      set vP2 to HSStateGet("tr", "P2Obj")
      SetPlayerProps(2, vP2)
      MakeChampList()
      MakePersBestList()
      ResetPlayerScores()
    end if
  else
    GetHistState()
    repeat with vI = 1 to 30
      set vNum to mGetMyCastNum(getAt(gzTRBalloonObj, vI))
      set the castNum of sprite (vI + gcTRBAL_CH1 - 1) to cast vNum
      set the visible of sprite (vI + gcTRBAL_CH1 - 1) to 1
      puppetSprite(vI + gcTRBAL_CH1 - 1, 1)
      updateStage()
    end repeat
  end if
  if gTREndGame then
    go("StopGame")
  end if
  puppetSound(0)
  DisplayPuzzlePcs()
end

on FirstTimeInit
  global gcTRROVER, gcTRKNOT1CH, gcTRKNOT2CH, gcTRBAL_CH1, gcTR_BLUE, gcTR_RED, gcTR_GREEN, gcTR_YELLOW, gcTR_ORG, gcTR_PINK, gcTRTURNDARTCH, gcTRSCOREBRD_CH, gcTRPLYR1SCORECH, gcTRPLYR2SCORECH, gcTRCATCHAN, gcTRPUZZLECH, gzTRRandCat, gzTR_ActiveQuestArray, gzTR_BeenSelected, gzTRBalloonObj, gzTRPlayerObj, gzTRCatNums, gzTRAllTimeHighs, gzTRPersBestScores, gTROutsideMenu, gTRGameObj, gTR_BalloonNumJustHit, gSIUserName, gTREndThisGame
  set gcTRPUZZLECH to 43
  set gcTRKNOT1CH to 43
  set gcTRKNOT2CH to 44
  set gcTRCATCHAN to 2
  set gcTRROVER to 48
  set gcTRPLYR1SCORECH to 40
  set gcTRPLYR2SCORECH to 41
  set gcTRTURNDARTCH to 39
  set gcTRSCOREBRD_CH to 38
  set gcTRBAL_CH1 to 8
  set gcTR_BLUE to 2
  set gcTR_RED to 3
  set gcTR_GREEN to 4
  set gcTR_YELLOW to 5
  set gcTR_ORG to 6
  set gcTR_PINK to 7
  set gTROutsideMenu to 1
  set gTREndGame to 0
  set gTREndThisGame to 0
  set gzTRCatagory to list()
  set gzTRRandCat to list()
  set gzTRBalloonObj to list()
  set gzTR_ActiveQuestArray to list("Q", "A", "A", "A", "2", "A")
  set gzTR_BeenSelected to list()
  set gzTRPlayerObj to list()
  set gzTRCatNums to list()
  set gzTRAllTimeHighs to [:]
  set gzTRPersBestScores to list()
  set gTR_BalloonNumJustHit to 0
  if gSIUserName = EMPTY then
    set gSIUserName to "Johnny B. Good"
  end if
  puppetSprite(gcTRTURNDARTCH, 1)
  puppetSprite(gcTRROVER, 1)
  puppetSprite(gcTRSCOREBRD_CH, 1)
  puppetSprite(gcTRPLYR1SCORECH, 1)
  puppetSprite(gcTRPLYR2SCORECH, 1)
  RandomizeCatagories()
  InitGameObject()
  mSetWhosTurn(gTRGameObj, 1)
  mSetPlayMode(gTRGameObj, 2)
  mSetCatagories(gTRGameObj, gzTRRandCat)
  repeat with vIndex = 1 to 30
    addAt(gzTRBalloonObj, vIndex, birth(script "BalloonParentObject"))
  end repeat
  InitBalloonObjects()
  repeat with vI = gcTRCATCHAN to gcTRCATCHAN + 5
    puppetSprite(vI, 1)
  end repeat
  repeat with vIndex = gcTRBAL_CH1 to gcTRBAL_CH1 + 29
    puppetSprite(vIndex, 1)
    set the visible of sprite vIndex to 1
  end repeat
  InitQuestionFields()
  InitPlayerObjects()
  InitPlayerScoreFields()
  set the trails of sprite gcTRROVER to 1
  set the ink of sprite gcTRROVER to 36
  DoublePlayerGame()
  DoDoubleValues()
  PlaceTurnDart()
  AssignQuestionsToBalloons()
  ShowCatagories()
  puppetSprite(45, 1)
  set the visible of sprite 45 to 0
  set the castNum of sprite 45 to cast "NewGameTwoOff"
end

on stopMovie
  DisableIdleAnim()
  SaveHistState()
  repeat with vIndex = 1 to 48
    set isPuppet to the puppet of sprite vIndex
    if isPuppet = 1 then
      puppetSprite(vIndex, 0)
    end if
  end repeat
end

on InitQuestionFields
  repeat with X in ["QuestionField", "AnswerField1", "AnswerField2", "AnswerField3", "TheAnswerText"]
    set the text of cast X to "a"
    set the textFont of cast X to "Geneva"
    set the textStyle of cast X to "Plain"
    set the textSize of cast X to 12
  end repeat
end

on StartNewGame
  global gcTRPLYR1SCORECH, gcTRPLYR2SCORECH, gcTRROVER, gcTRBAL_CH1, gzTRPlayerObj, gTRGameObj, gcTRTURNDARTCH, gTREndGame, gTRNewGame, gTRInitialPopCount
  set gTRNewGame to 1
  set the text of cast "Player1Score" to "0"
  set the text of cast "Player2Score" to "0"
  SetScoreAttribs()
  HSStatePut("tr", "not1stTime", "1")
  set gTRHelpUp to 0
  duplicate(cast 99, 98)
  puppetSprite(gcTRTURNDARTCH, 1)
  set the visible of sprite gcTRTURNDARTCH to 0
  updateStage()
  updateStage()
  repeat while soundBusy(1)
    nothing()
  end repeat
  puppetSound(0)
  KillAllBalloons()
  mSetWhosTurn(gTRGameObj, 1)
  if gTREndGame = 1 then
    go("StopGame")
  else
    RandomizeCatagories()
    AssignQuestionsToBalloons()
    ShowCatagories()
    mSetPopCount(gTRGameObj, gTRInitialPopCount)
    puppetSprite(gcTRTURNDARTCH, 1)
    puppetSprite(gcTRROVER, 1)
    puppetSprite(gcTRSCOREBRD_CH, 1)
    set the visible of sprite 45 to 0
    set the visible of sprite 47 to 1
    set the castNum of sprite 45 to cast "NewGameTwoOff"
    go("BeginHead2Head")
    TurnOnScoreBoards()
    set the visible of sprite gcTRPLYR1SCORECH to 0
    set the visible of sprite gcTRPLYR2SCORECH to 0
    set the visible of sprite gcTRROVER to 0
    set the trails of sprite gcTRROVER to 0
    set the locH of sprite gcTRROVER to -10
    set the locV of sprite gcTRROVER to -10
    InitQuestionFields()
    ShowAllBalloons()
    InitBalloonObjsForNewGame()
    if mGetPlayMode(gTRGameObj) = 1 then
      SinglePlayerGame()
    else
      DoublePlayerGame()
    end if
    DoDoubleValues()
    MakeChampList()
    MakePersBestList()
    SetPlayerScores()
    mSetBeatHighScore(getAt(gzTRPlayerObj, 1), 0)
    mSetBeatHighScore(getAt(gzTRPlayerObj, 2), 0)
  end if
  DisplayPuzzlePcs()
  set gTRNewGame to 0
end

on InitPlayerScoreFields
  set the text of field "Player1Score" to "0"
  set the text of field "Player2Score" to "0"
  SetScoreAttribs()
  set the text of cast "ChampionListATBleft" to " "
  set the text of cast "ChampionListATBright" to " "
  set the text of cast "PersonalBestLeft" to " "
  set the text of cast "PersonalBestright" to " "
  SetChampsAttribs()
  SetQaWindowAttribs()
  updateStage()
end

on cleanUp
  SaveHistState()
  repeat with vIndex = 1 to 48
    set isPuppet to the puppet of sprite vIndex
    if isPuppet = 1 then
      puppetSprite(vIndex, 0)
    end if
  end repeat
  set the soundEnabled to 1
end

on SaveHistState
  global gTRGameObj, gzTRPlayerObj, gzTRBalloonObj, gzTRAllTimeHighs, gzTRPersBestScores
  set vObjProps to EMPTY
  set vObjProps to GetGameProps()
  HSStatePut("tr", "GameObj", vObjProps)
  set vObjProps to EMPTY
  set vObjProps to GetPlayerProps(1)
  HSStatePut("tr", "P1Obj", vObjProps)
  set vObjProps to EMPTY
  set vObjProps to GetPlayerProps(2)
  HSStatePut("tr", "P2Obj", vObjProps)
  set vObjProps to EMPTY
  repeat with vI = 1 to 30
    set vObjProps to GetBalloonProps(vI)
    HSStatePut("tr", "Bal" & vI, vObjProps)
  end repeat
  set vTempHighs to value(string(gzTRAllTimeHighs))
  GSStatePut("tr2", "ChampInfo", vTempHighs)
  set vTempPersBest to value(string(gzTRPersBestScores))
  HSStatePut("tr2", "PersBest", vTempPersBest)
  set vNumPzlPcs to GetNumPuzzlePcs()
  HSStatePut("tr2", "NumPzlPcs", vNumPzlPcs)
end

on GetHistState
  global gTRGameObj, gcTRTURNDARTCH, gzTRPlayerObj, gcTRROVER, gzTRBalloonObj, gcTRSCOREBRD_CH, gcTRPLYR1SCORECH, gcTRPLYR2SCORECH, gzTRRandCat, gzTRAllTimeHighs, gzTRPersBestScores
  puppetSprite(gcTRTURNDARTCH, 1)
  set the visible of sprite gcTRTURNDARTCH to 0
  updateStage()
  puppetSprite(gcTRROVER, 1)
  puppetSprite(gcTRSCOREBRD_CH, 1)
  set vTemp to HSStateGet("tr", "GameObj")
  if vTemp = EMPTY then
    InitGameObject()
    SetGameProps(vTemp)
  end if
  set vP1 to HSStateGet("tr", "P1Obj")
  if vP1 = EMPTY then
    InitPlayerObjects()
  else
    SetPlayerProps(1, vP1)
    set vP2 to HSStateGet("tr", "P2Obj")
    SetPlayerProps(2, vP2)
  end if
  SetPlayerScores()
  set the text of cast "Player1Score" to string(mGetMyCurrentScore(getAt(gzTRPlayerObj, 1)))
  set the text of cast "Player2Score" to string(mGetMyCurrentScore(getAt(gzTRPlayerObj, 2)))
  SetScoreAttribs()
  set vPlayMode to mGetPlayMode(gTRGameObj)
  if vPlayMode = 1 then
    set the castNum of sprite gcTRSCOREBRD_CH to the number of cast "SinglePlayerScoreBoard"
    set the locH of sprite gcTRSCOREBRD_CH to 320
    set the locV of sprite gcTRSCOREBRD_CH to 446
    set the visible of sprite gcTRSCOREBRD_CH to 1
    puppetSprite(gcTRSCOREBRD_CH, 1)
    updateStage()
  else
    set the castNum of sprite gcTRSCOREBRD_CH to the number of cast "DoublePlayerScoreBoard"
    set the locH of sprite gcTRSCOREBRD_CH to 316
    set the locV of sprite gcTRSCOREBRD_CH to 446
    set the visible of sprite gcTRSCOREBRD_CH to 1
    puppetSprite(gcTRSCOREBRD_CH, 1)
    updateStage()
  end if
  PlaceTurnDart()
  set vbal1 to HSStateGet("tr", "bal1")
  if vbal1 <> EMPTY then
    repeat with vI = 1 to 30
      set vTemp to HSStateGet("tr", "Bal" & vI)
      SetBalloonProps(vI, vTemp)
    end repeat
  else
    repeat with vIndex = 1 to 30
      addAt(gzTRBalloonObj, vIndex, birth(script "BalloonParentObject"))
    end repeat
    InitBalloonObjects()
  end if
  ShowCatagories()
  set gzTRAllTimeHighs to GSStateGet("tr2", "ChampInfo")
  if not listp(gzTRAllTimeHighs) then
    set gzTRAllTimeHighs to [:]
  end if
  set gzTRPersBestScores to HSStateGet("tr2", "PersBest")
  if not listp(gzTRPersBestScores) then
    set gzTRPersBestScores to []
  end if
end

on keyDown
  if the keyCode = 122 then
    LaunchHelp()
  end if
end

on SetScoreAttribs
  set the textFont of field "Player1Score" to "Geneva"
  set the textStyle of field "Player1Score" to "Outline"
  set the textSize of field "Player1Score" to 14
  set the textAlign of field "Player1Score" to "Center"
  set the foreColor of cast "Player1Score" to 0
  set the backColor of cast "Player1Score" to 255
  set the textFont of field "Player2Score" to "Geneva"
  set the textStyle of field "Player2Score" to "Outline"
  set the textSize of field "Player2Score" to 14
  set the textAlign of field "Player2Score" to "Center"
  set the foreColor of cast "Player2Score" to 0
  set the backColor of cast "Player2Score" to 255
  updateStage()
end

on SetChampsAttribs
  set the foreColor of cast "ChampionListATBleft" to 0
  set the backColor of cast "ChampionListATBleft" to 255
  set the textFont of cast "ChampionListATBleft" to "Geneva"
  set the textSize of cast "ChampionListATBleft" to 10
  set the textAlign of cast "ChampionListATBleft" to "Left"
  set the foreColor of cast "ChampionListATBright" to 0
  set the backColor of cast "ChampionListATBright" to 255
  set the textFont of cast "ChampionListATBright" to "Geneva"
  set the textSize of cast "ChampionListATBright" to 10
  set the textAlign of cast "ChampionListATBright" to "Left"
  set the foreColor of cast "PersonalBestLeft" to 0
  set the backColor of cast "PersonalBestLeft" to 255
  set the textFont of cast "PersonalBestLeft" to "Geneva"
  set the textSize of cast "PersonalBestLeft" to 10
  set the textAlign of cast "PersonalBestLeft" to "Left"
  set the foreColor of cast "PersonalBestright" to 0
  set the backColor of cast "PersonalBestright" to 255
  set the textFont of cast "PersonalBestright" to "Geneva"
  set the textSize of cast "PersonalBestright" to 10
  set the textAlign of cast "PersonalBestright" to "Left"
  updateStage()
end

on SetQaWindowAttribs
  set the textFont of field "ActiveQuestion" to "Geneva"
  set the textFont of field "ActiveAnswer1" to "Geneva"
  set the textFont of field "ActiveAnswer2" to "Geneva"
  set the textFont of field "ActiveAnswer3" to "Geneva"
  repeat with I in ["QuestionField", "AnswerField1", "AnswerField2", "AnswerField3", "TheAnswerText"]
    set the text of field I to "a"
    set the foreColor of cast I to 0
    set the backColor of cast I to 255
  end repeat
  set the textSize of field "ActiveQuestion" to 12
  set the textSize of field "ActiveAnswer1" to 12
  set the textSize of field "ActiveAnswer2" to 12
  set the textSize of field "ActiveAnswer3" to 12
  updateStage()
end